0 PRINT"[196]ISK SECTOR TO [194][193][211][201][195] DATA STATEMENTS"
1 PRINT"[147][214]ERSION 1.0 BY [210]ANDY [215]INCHESTER"
2 PRINT"'LIST 8' FOR STARTING LINE NUMBER"
3 PRINT"'LIST 2000-*' FOR TRACK/SECTOR DATA"
4 PRINT"[193]S AN EXAMPLE, FOR TRACK 18, SECTOR 0,  ENTER '2000 DATA 18,0'."
5 PRINT"[213]SE 'DATA 0,0' AS THE LAST LINE.
6 [153]"'RUN 8' TO RUN.":[128]
8 LN[178]1000:[143] STARTING LINE NUMBER
9 Q$[178][199](34)
10 [159]15,8,15,"I0"
25 [141]30:[137]50
30 [132]15,EN$,EM$,ET$,ES$
40 [139] EN$[179][177]"00"[137]990
45 [142]
50 [159]2,8,2,"#"
55 [159]3,8,3,"TEMPDATA,S,W"
60 [135] TR,SE
65 [152]3,LN[170]5;" DATA";[201]([196](TR),2);[199](44);[201]([196](SE),2)
70 [139] TR[178]0[167] 970
80 [152]15,"U1";2;0;TR;SE
90 [141]30
95 [153]"LOADREADING TRACK ";TR"WAIT SECTOR ";SE:[153]"WRITING DATA FILE . . ."
100 [129] C1[178]0[164]31
120 LN[178]LN[170]10
130 [152]3,LN;"DATA";
140 [129] C2[178]0[164]7
150 [161]#2,B$:[139] B$[178]""[167] B$[178][199](0)
160 [152]3,[201]([196]([198](B$)),3);:[139] C2[179]7[167] [152]3,[199](44);
170 [130]
180 [152]3,[199](13)
190 [130]
200 [137]60
970 [152]3,"?"Q$"SAVE"Q$"CHR$(34)"Q$"SECTORDATA"Q$"CHR$(34)"Q$",8"Q$
971 [152]3,"?"Q$"OPEN1,8,15,"Q$"CLEFT$(34)"Q$"S0:TEMPDATA"Q$"CLEFT$(34)"Q$":CLOSE15"
975 [152]3,"PRINT"Q$"ONONONONONONONONONONONONONON"Q$
980 [152]3,"CLOSE2:POKE812,47:SYS65484"
990 [160]3:[160]2
1000 [160]15
1010 [153]"LOAD";:[153]:[153]:[153]"OPEN2,8,2,";Q$;
1011 [153]"TEMPDATA";Q$;
1020 [153]":POKE781,2:POKE812,73:SYS65478"
1030 [153]"";:[151]198,1:[151]631,13:[162]
2000 [131]18,0:[143] DATA FOR TRACK 18,    SECTOR 0 (AN EXAMPLE)
2010 [131] 0,0:[143] ALL DONE!